Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/qrep097a.zip/LABELREP.DFM/LABELREP.txt

Text File | 1996-01-08 | 5KB | 224 lines

object LabelForm: TLabelForm
  Left = 366
  Top = 204
  Width = 808
  Height = 796
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  BorderStyle = bsDialog
  Caption = 'LabelForm'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 14
  object QRBand1: TQRBand
    Left = 0
    Top = 22
    Width = 1200
    Height = 71
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrInchesHV
    object QRDBText1: TQRDBText
      Left = 14
      Top = 6
      width = 203
      height = 13
      DataSource = DataSource1
      DataField = 'Company'
    end
    object QRDBText2: TQRDBText
      Left = 14
      Top = 19
      width = 216
      height = 13
      DataSource = DataSource1
      DataField = 'Addr1'
    end
    object QRDBText4: TQRDBText
      Left = 14
      Top = 45
      width = 216
      height = 13
      Color = clWhite
      DataSource = DataSource1
      DataField = 'AdrLine4'
    end
    object QRDBText3: TQRDBText
      Left = 14
      Top = 32
      width = 219
      height = 13
      DataSource = DataSource1
      DataField = 'AdrLine3'
    end
  end
  object QRBand2: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 22
    Align = alTop
    BandType = rbPageHeader
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel1: TQRLabel
      Left = 11
      Top = 3
      width = 218
      height = 15
      Alignment = taCenter
      Caption = 'QuickReport mailing label demo report'
      AlignToBand = True
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRSysData1: TQRSysData
      Left = 644
      Top = 4
      width = 65
      height = 17
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object QRBand3: TQRBand
    Left = 0
    Top = 93
    Width = 1200
    Height = 612
    Align = alTop
    BandType = rbOverlay
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel2: TQRLabel
      Left = 24
      Top = 348
      width = 704
      height = 114
      Alignment = taCenter
      Caption = 'QuickReport'
      AlignToBand = True
      Font.Color = clBlack
      Font.Height = -107
      Font.Name = 'Courier New'
      Font.Style = []
      Transparent = True
    end
    object QRLabel3: TQRLabel
      Left = 24
      Top = 464
      width = 256
      height = 114
      Alignment = taCenter
      Caption = 'demo'
      AlignToBand = True
      Font.Color = clBlack
      Font.Height = -107
      Font.Name = 'Courier New'
      Font.Style = []
      Transparent = True
    end
  end
  object Table1: TTable
    Active = True
    OnCalcFields = Table1CalcFields
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 35
    Top = 100
    object Table1CustNo: TFloatField
      FieldName = 'CustNo'
    end
    object Table1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object Table1Addr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1City: TStringField
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      FieldName = 'State'
    end
    object Table1Zip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object Table1Contact: TStringField
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
    object Table1AdrLine3: TStringField
      Calculated = True
      FieldName = 'AdrLine3'
      Size = 30
    end
    object Table1AdrLine4: TStringField
      Calculated = True
      FieldName = 'AdrLine4'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 67
    Top = 100
  end
  object Rep: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 3
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PrintOrder = qrColByCol
    ReportTitle = 'QuickReport mailing label demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 3
    Top = 100
  end
end